home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib07.dsk
/
GOSUB DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
144b
|
5 lines
10 POKE 975,0
20 INPUT "N = ";N
30 FOR I = 1 TO N: GOSUB 50: GOSUB 50: NEXT I
40 PRINT "GOSUB EXECUTED " PEEK(975)" TIMES": END
50 RETURN